約 4,931,891 件
https://w.atwiki.jp/pocketplanes/pages/68.html
NANPING [南平] NANPING は ASIA に位置する人口約 2.90 millionの都市。 NANPING Airportは Class 1 の空港。 “HIGH WALLS SURROUNDING NANPING WERE USED TO PREVENT ARTILLERY FIRE, AND FORMED A CONSIDERABLE OBSTACLE TO ATTACK IN OLDER TIMES.” OPEN(coins) 15500coins 宣伝(coins) 25500coins レベル1 レベル2 レベル3 アップグレードコスト(coins) - 31000 46500 LAYOVERS 6 12 18 CLOSE時の払戻(coins) 7750 23250 46500 空港 一覧 AFRICA [アフリカ] AL FASHIR・ALGIERS・BAMAKO・BEIRA・BENGHAZI・CAIRO・CAPE TOWN・CASABLANCA・DAKAR・DJIBOUTI・DURBAN・HARARE・IN SALAH・JOHANNESBURG・JUBA・KADUNA・KAMPALA・KANANGA・KHARTOUM・KINSHASA・KISANGANI・LAGOS・LILONGWE・LIVINGSTONE・LOBITO・MAHAJANGA・MOGADISHU・MOMBASA・MONROVIA・NAIROBI・PORT ELIZABETH・PORT SUDAN・TIMBUKTU・TRIPOLI・WINDHOEK・ZANZIBAR ASIA [アジア] ADEN・AHMEDABAD・ANADYR・BAGHDAD・BANGALORE・BANGKOK・BEIJING・BUTWAL・CEBU・CHENGDU・DELHI・DHAKA・GUANGZHOU・HANOI・HARBIN・HONG KONG・HYDERABAD・ISTANBUL・JAKARTA・JERUSALEM・KABUL・KANDAHAR・KARACHI・KOLKATA・KUCHING・KUWAIT CITY・LHASA・MAGADAN・MANILA・MUMBAI・MUSCAT・NAGASAKI・NANPING・NORILSK・NOVOSIBIRSK・OSAKA・PADANG・PALU・PEVEK・PORT MORESBY・RANGOON・RIYADH・SAPPORO・SENDAI・SEOUL・SHANGHAI・SHENYANG・SINGAPORE・TAIPEI・TEHRAN・TIKSI・TOKYO・ULAN BATOR・URUMQI・VLADIVOSTOK・XI AN・XINING・YAKUTSK・YINCHUAN EUROPE [ヨーロッパ] AMSTERDAM・ATHENS・BARCELONA・BEIRUT・BELFAST・BELGRADE・BERGEN・BERLIN・BERN・BORDEAUX・BRUSSELS・BUCHAREST・COPENHAGEN・CORDOBA(SPAIN)・GLASGOW・HAMMERFEST・HELSINKI・KIEV・LISBON・LONDON・LULEA・LYON・MADRID・MANCHESTER・MINSK・MOSCOW・MUNICH・MURMANSK・NAPLES・OSLO・OULU・PARIS・PERM・PRAGUE・REYKJAVIK・RIGA・ROME・ST.PETERSBURG・STOCKHOLM・TBILISI・TRONDHEIM・VENICE・VIENNA・VOLGOGRAD・WARSAW NORTH AMERICA [北アメリカ] ANCHORAGE・ATLANTA・BARROW・BISMARCK・BOSTON・CALGARY・CANCUN・CHARLESTON・CHICAGO・CHIHUAHUA・CINCINNATI・DALLAS・DENVER・DETROIT・EDMONTON・FAIRBANKS・GOOSE BAY・GUATEMALA・HAVANA・HILO・HONOLULU・HOUSTON・INUVIK・IQALUIT・JUNEAU・KANSAS CITY・KETCHIKAN・LAS VEGAS・LOS ANGELES・MEXICO CITY・MIAMI・MINNEAPOLIS・MONTERREY・MONTREAL・NEW ORLEANS・NEW YORK・NOME・NUUK・OAXACA・ORLANDO・OTTAWA・PANAMA CITY・PHILADELPHIA・PHOENIX・PORTLAND・QUEBEC・SALT LAKE CITY・SAN DIEGO・SAN FRANCISCO・SAN JOSE・SANTO DOMINGO・SASKATOON・SEATTLE・SPOKANE・ST.LOUIS・THUNDER BAY・TORONTO・VANCOUVER・WASHINGTON DC・WHITEHORSE・WINNIPEG・YELLOWKNIFE SOUTH AMERICA [南アメリカ] ARAGUAINA・ASUNCION・BARILOCHE・BELEM・BOGOTA・BRASILIA・BUENOS AIRES・CAMPO GRANDE・CARACAS・CORDOBA(ARGENTINA)・CUIABA・CUZCO・EASTER ISLAND・FORTALEZA・GEORGETOWN・IQUITOS・LA PAZ・LIMA・MANAUS・PORTO VELHO・PUNTA ARENAS・QUITO・RECIFE・RIO DE JANEIRO・SALVADOR・SANTIAGO・SAO PAULO・TERESINA OCEANIA [オセアニア] ADELAIDE・ALICE SPRINGS・AUCKLAND・BRISBANE・BROKEN HILL・BROOME・CAIRNS・CHRISTCHURCH・DARWIN・GERALDTON・HOBART・KALGOORLIE・KATHERINE・MELBOURNE・MOUNT ISA・NEWMAN・PERTH・PORT HEDLAND・ROCKHAMPTON・SYDNEY・WELLINGTON
https://w.atwiki.jp/sampleisbest/pages/237.html
開発環境 Microsoft Visual C# 2010 Express (SP1) 実行環境 Microsoft Windows XP Home Edition (SP3) プロジェクトの種類 空のプロジェクト プロジェクト名 Quaternion 参考 航法(航海)計算#大圏航法 四元数で3次元の回転を計算する方法 (ソースコード付き) Program.cs // Quaternion6 大圏コース逆算 using System; using Microsoft.Xna.Framework; // .NET参照 class Program { static void Main() { float startLatDeg = 35; float startLonDeg = 135; float angleDeg = 53.22f; float distNM = 4863.88f; float startLatRad = MathHelper.ToRadians(startLatDeg); float startLonRad = MathHelper.ToRadians(startLonDeg); float angleRad = MathHelper.ToRadians(angleDeg); float dist = distNM * 1.852f / 20000; Console.WriteLine(string.Format("dist={0 f2}", dist)); // +Z=0 +X=90 float y = (float)Math.Sin(startLatRad); float r = (float)Math.Cos(startLatRad); float z = (float)Math.Cos(startLonRad) * r; float x = (float)Math.Sin(startLonRad) * r; Vector3 axis = new Vector3(x, y, z); // 回転軸 Print(axis); // +Z=0 +X=90 float rad = startLatRad + dist * MathHelper.Pi; y = (float)Math.Sin(rad); r = (float)Math.Cos(rad); z = (float)Math.Cos(startLonRad) * r; x = (float)Math.Sin(startLonRad) * r; Vector3 v = new Vector3(x, y, z); // 回転する座標 Print(v); Quaternion p = new Quaternion(v, 0); Quaternion rot = Quaternion.CreateFromAxisAngle(axis, angleRad); Quaternion q = Quaternion.Conjugate(rot) * p * rot; Console.WriteLine(string.Format("x={0 f2} y={1 f2} z={2 f2} w={3 f2} len={4 f2}", q.X, q.Y, q.Z, q.W, q.Length())); PrintLatLon(q.X, q.Y, q.Z); Console.ReadLine(); } static void Print(Vector3 v) { Console.WriteLine(string.Format("x={0 f2} y={1 f2} z={2 f2} len={3 f2}", v.X, v.Y, v.Z, v.Length())); PrintLatLon(v.X, v.Y, v.Z); } static void PrintLatLon(float x, float y, float z) { Console.WriteLine(string.Format("lat={0 f1} lon={1 f1}", MathHelper.ToDegrees((float)Math.Asin(y)), MathHelper.ToDegrees((float)Math.Atan2(x, z)))); } } 出力 dist=0.45 x=0.58 y=0.57 z=-0.58 len=1.00 lat=35.0 lon=135.0 x=-0.31 y=0.90 z=0.31 len=1.00 lat=63.9 lon=-45.0 x=-0.71 y=0.57 z=-0.41 w=0.00 len=1.00 lat=35.0 lon=-120.0 Program.cs // Quaternion6 2.Vector4 ver. using System; using Microsoft.Xna.Framework; // .NET参照 class Program { static void Main() { float startLatDeg = 35; float startLonDeg = 135; float angleDeg = 53.22f; float distNM = 4863.88f; float startLatRad = MathHelper.ToRadians(startLatDeg); float startLonRad = MathHelper.ToRadians(startLonDeg); float angleRad = MathHelper.ToRadians(angleDeg); float dist = distNM * 1.852f / 20000; Console.WriteLine(string.Format("dist={0 f2}", dist)); // +Z=0 +X=90 float y = (float)Math.Sin(startLatRad); float r = (float)Math.Cos(startLatRad); float z = (float)Math.Cos(startLonRad) * r; float x = (float)Math.Sin(startLonRad) * r; Vector3 axis = new Vector3(x, y, z); // 回転軸 Print(axis); // +Z=0 +X=90 float rad = startLatRad + dist * MathHelper.Pi; y = (float)Math.Sin(rad); r = (float)Math.Cos(rad); z = (float)Math.Cos(startLonRad) * r; x = (float)Math.Sin(startLonRad) * r; Vector3 v = new Vector3(x, y, z); // 回転する座標 Print(v); Vector4 p = new Vector4(v, 0); Vector4 rot = CreateFromAxisAngle(axis, angleRad); Vector4 conj = new Vector4(-rot.X, -rot.Y, -rot.Z, rot.W); Vector4 q = MulQ(MulQ(conj, p), rot); Console.WriteLine(string.Format("x={0 f2} y={1 f2} z={2 f2} w={3 f2} len={4 f2}", q.X, q.Y, q.Z, q.W, q.Length())); PrintLatLon(q.X, q.Y, q.Z); Console.ReadLine(); } static Vector4 CreateFromAxisAngle(Vector3 axis, float angle) { // 回転軸の正規化 float norm = axis.Length(); if (norm = 0) return Vector4.Zero; norm = 1 / (float)Math.Sqrt(norm); axis *= norm; angle *= 0.5f; float c = (float)Math.Cos(angle); float s = (float)Math.Sin(angle); Vector4 v = new Vector4(axis * s, c); return v; } static Vector4 MulQ(Vector4 v1, Vector4 v2) { Vector4 v; v.X = (v1.W * v2.X) + (v1.X * v2.W) + (v1.Y * v2.Z) - (v1.Z * v2.Y); v.Y = (v1.W * v2.Y) + (v1.Y * v2.W) + (v1.Z * v2.X) - (v1.X * v2.Z); v.Z = (v1.W * v2.Z) + (v1.Z * v2.W) + (v1.X * v2.Y) - (v1.Y * v2.X); v.W = (v1.W * v2.W) - (v1.X * v2.X) - (v1.Y * v2.Y) - (v1.Z * v2.Z); return v; } static void Print(Vector3 v) { Console.WriteLine(string.Format("x={0 f2} y={1 f2} z={2 f2} len={3 f2}", v.X, v.Y, v.Z, v.Length())); PrintLatLon(v.X, v.Y, v.Z); } static void PrintLatLon(float x, float y, float z) { Console.WriteLine(string.Format("lat={0 f1} lon={1 f1}", MathHelper.ToDegrees((float)Math.Asin(y)), MathHelper.ToDegrees((float)Math.Atan2(x, z)))); } }
https://w.atwiki.jp/sampleisbest/pages/587.html
※暫定版 10 defint a-z width 40,25 console ,,0,1 print chr$(12); 20 dim dx(3),dy(3),pc$(3,3),cg(5) 30 for i=0 to 3 read dx(i),dy(i) 40 for j=0 to 3 read d$ pc$(i,j)=chr$(val(" h"+d$)) next j,i 50 data 0,-1, 87,86,20,80 60 data 1, 0, 84,85,20,81 70 data 0, 1, 86,87,20,82 80 data -1, 0, 85,84,20,83 90 px=13 py=18 pd=3 dt= ha5 100 pcg 110 for i=0 to 5 read d$ cg(i)=val(" h"+d$) next 120 data 95,96,9c,9d,9e,9f 130 140 read d$ if d$="*" then 400 150 c=(val(" h"+d$)- h80)*8 ch=c\256 cl=c mod 256 160 for i=0 to 7 read d$ out 0,val(" h"+d$) out 1,cl+i out 2,ch or h10 out 2,ch next 170 goto 140 200 data 80, 00,42,c3,e7, e7,ff,7e,3c 210 data 81, 3c,7e,f8,e0, e0,f8,7e,3c 220 data 82, 3c,7e,ff,e7, e7,c3,42,00 230 data 83, 3c,7e,1f,07, 07,1f,7e,3c 240 data 84, 03,07,0f,0f, 0f,0f,07,03 250 data 85, c0,e0,f0,f0, f0,f0,e0,c0 260 data 86, 00,00,00,00, 3c,7e,ff,ff 270 data 87, ff,ff,7e,3c, 00,00,00,00 280 data 88, 3c,7e,ff,ff, ff,ff,7e,3c 290 data 95, 00,00,00,ff, ff,00,00,00 300 data 96, 18,18,18,18, 18,18,18,18 310 data 9c, 00,00,00,07, 0f,1c,18,18 320 data 9d, 00,00,00,e0, f0,38,18,18 330 data 9e, 18,18,1c,0f, 07,00,00,00 340 data 9f, 18,18,38,f0, e0,00,00,00 350 data a5, 00,00,00,18, 18,00,00,00 360 data * 400 map 410 for y=0 to 24 read d$ 420 for i=1 to 28 c$=mid$(d$,i,1) 430 if c$="." then color 6 print chr$(dt); goto 460 440 if c$=" " then print" "; goto 460 450 color 1 print chr$(cg(val(c$))); 460 next 470 if y 24 then print 480 next 500 data"1............11............1" 510 data"1.2003.20003.11.20003.2003.1" 520 data"1.1 1.1 1.11.1 1.1 1.1" 530 data"1.4005.40005.45.40005.4005.1" 540 data"1..........................1" 550 data"1.2003.23.20000003.23.2003.1" 560 data"1.4005.11.40032005.11.4005.1" 570 data"1......11....11....11......1" 580 data"400003.14003.11.20051.200005" 590 data" 1.12005.45.40031.1 " 600 data"000005.45 45.400000" 610 data" . 10000001 . " 620 data"000003.23 23.200000" 630 data" 1.11 20000003 11.1 " 640 data"200005.45 40032005 45.400003" 650 data"1............11............1" 660 data"1.2003.20003.11.20003.2003.1" 670 data"1.4031.40005.45.40005.1205.1" 680 data"1...11....... ........11...1" 690 data"403.11.23.20000003.23.11.205" 700 data"205.45.11.40032005.11.45.403" 710 data"1......11....11....11......1" 720 data"1.2000054003.11.2005400003.1" 730 data"1.4000000005.45.4000000005.1" 740 data"1..........................1" 750 locate px,py color 6 print chr$( h88); 760 beep1 for w=1 to 1000 next beep 0 1000 main loop 1010 d=-1 k=inp(0) xor inp(1) 1020 if k= h01 then if py 0 then d=0 1030 if k= h40 then d=1 1040 if k= h04 then if py 24 then d=2 1050 if k= h10 then d=3 1060 if d=-1 then 1110 1070 c=peek( hf302+(py+dy(d))*120+(px+dx(d))*2) 1080 if c= h20 or c=dt then pd=d 1100 1110 qx=px+dx(pd) qy=py+dy(pd) 1120 if qx 0 then qx=27 1130 if qx 27 then qx=0 1140 c=peek( hf302+qy*120+qx*2) 1150 if c h20 and c dt then gosub 2020 goto 1010 1160 if c=dt then beep 1 beep 0 1170 gosub 1510 1180 px=qx py=qy goto 1010 1500 move 1510 locate px,py print pc$(pd,0); 1520 locate qx,qy print pc$(pd,1); 1530 gosub 2010 1540 locate px,py print pc$(pd,2); 1550 locate qx,qy print pc$(pd,3); 1560 gosub 2010 1570 return 2000 wait 2010 for w=1 to 100 next return 2020 for w=1 to 200 next return
https://w.atwiki.jp/tmiya/pages/30.html
4.1 式と簡単な関数 Scala システムには、素敵な計算機と見ることのできるインタプリタが同梱されています。ユーザーは式をタイプすることで計算機と交信できます。計算機は評価した結果とその型を返します。たとえば scala 87 + 145 unnamed0 Int = 232 scala 5 + 2 * 3 unnamed1 Int = 11 scala "hello" + " world!" unnamed2 java.lang.String = hello world! 部分式に名前を付け、以後は式の代わりにその名前を使うこともできます。 scala def scale = 5 scale Int scala 7 * scale unnamed3 Int = 35 scala def pi = 3.141592653589793 pi Double scala def radius = 10 radius Int scala 2 * pi * radius unnamed4 Double = 62.83185307179586 定義は予約語 def で始まります。= 記号に続く式を表す名前を導入します。インタプリタは導入された名前と型を返します。 def x = e のような定義の実行は、式 e を評価しません。その代わり、x が使われる時はいつでも e は評価されます。一方で、Scala には値の定義 val x = e もあり、定義評価の一環として右辺 e を評価します。その後 x が使われるときは、前に計算された e の値で直ちに置き換えられので、式を再評価する必要はありません。 式はどのように評価されるのでしょう? 演算子とオペランドから構成される式は次の簡単化のステップを繰り返し適用して評価されます。 最も左の操作を選ぶ そのオペランドを評価する オペランド値に演算子を適用する def で定義された名前は、名前を (未評価の) 定義の右辺で置き換えることで評価されます。val で定義された名前は、名前を定義の右辺の値で置き換えることで評価されます。評価プロセスは値を得たら終了します。値は文字列や数や配列やリストといったデータアイテムです。 Example 4.1.1 数式の評価です。 (2 * pi) * radius → (2 * 3.141592653589793) * radius → 6.283185307179586 * radius → 6.283185307179586 * 10 → 62.83185307179586 式を値へと段階的に簡単化するプロセスを 簡約 と呼びます。 前ページ 4 章 目次 次ページ ーーー 修正案murase_syuka s/素敵な計算機のように見えるインタプリタ/高級計算機と見ることができるインタプリタ/ ーーー 名前 コメント
https://w.atwiki.jp/satoschi/pages/572.html
カンピダーノ・サルデーニャ語 |Indo-European languages|Italic languages| 言語類型 現用言語 使用文字 ラテン文字【Latn?】 type living language writing system Latin alphabet ISO 639-3 【sro】 言語名別称 alternate names Campidanese Campidese Sardu South Sardinian カンピダーノ・サルディニア語 カンピダーノ・サルデーニア語 カンピダーノ・サルジニア語 方言名 dialect names Arborense アルボル方言◆プライス, グランヴィル編. ヨーロッパ言語事典. 松本克己訳, 山本秀樹訳, 佐々木冠訳, 山田久就訳. 東洋書林, 2003, 628p. (p.63) Cagliare (Cagliari, Cagliaritan) Central Campidanese Meridionale Ogliastrino Sarrabense Sub-Barbaricino Sulcitano Western Campidenese 参考文献 references WEB ISO 639-3 Registration Authority - SIL International the LINGUIST List Ethnologue The Rosetta Project Wikipedia
https://w.atwiki.jp/sampleisbest/pages/146.html
開発環境 Microsoft Visual C++ 2010 Express (SP1) 実行環境 Microsoft Windows XP Home Edition (SP3) プロジェクトの種類 Win32 コンソール アプリケーション プロジェクト名 devcaps アプリケーションの種類 コンソール アプリケーション 追加のオプション 空のプロジェクト devcaps.c #include tchar.h #include Windows.h #define pxtocm(px,dpi) ((px) * 2.54 / (dpi)) #define VarTrace(fmt,var) _tprintf(TEXT(#var)TEXT("=[")fmt##TEXT("]\n"), var) void PrintDevCaps(HDC hdc) { int nHorzRes= GetDeviceCaps(hdc, HORZRES); int nVertRes= GetDeviceCaps(hdc, VERTRES); int nPhysicalWidth= GetDeviceCaps(hdc, PHYSICALWIDTH); int nPhysicalHeight= GetDeviceCaps(hdc, PHYSICALHEIGHT); int nPhysicalOffsetX= GetDeviceCaps(hdc, PHYSICALOFFSETX); int nPhysicalOffsetY= GetDeviceCaps(hdc, PHYSICALOFFSETY); int nLogPixelsX= GetDeviceCaps(hdc, LOGPIXELSX); int nLogPixelsY= GetDeviceCaps(hdc, LOGPIXELSY); double dWidth = pxtocm(nPhysicalWidth ? nPhysicalWidth nHorzRes, nLogPixelsX); double dHeight = pxtocm(nPhysicalHeight ? nPhysicalHeight nVertRes, nLogPixelsY); VarTrace(TEXT("%d"), nHorzRes); VarTrace(TEXT("%d"), nVertRes); VarTrace(TEXT("%d"), nPhysicalWidth); VarTrace(TEXT("%d"), nPhysicalHeight); VarTrace(TEXT("%d"), nPhysicalOffsetX); VarTrace(TEXT("%d"), nPhysicalOffsetY); VarTrace(TEXT("%d"), nLogPixelsX); VarTrace(TEXT("%d"), nLogPixelsY); VarTrace(TEXT("%.4f cm"), dWidth); VarTrace(TEXT("%.4f cm"), dHeight); } int main() { PRINTDLG pd; HDC hdc; HGLOBAL hr; BOOL br; _tprintf(TEXT("\n[display]\n")); hdc = CreateIC(TEXT("DISPLAY"), NULL, NULL, NULL); if (hdc == NULL) { return 1; } PrintDevCaps(hdc); br = DeleteDC(hdc); _tprintf(TEXT("\n[default printer]\n")); ZeroMemory( pd, sizeof pd); pd.lStructSize= sizeof pd; pd.Flags= PD_RETURNDEFAULT | PD_RETURNIC; br = PrintDlg( pd);// ウィンドウがないのでPrintDlgExの代用 if (br == FALSE) { return 1; } if (pd.hDC == NULL) { return 1; } PrintDevCaps(pd.hDC); br = DeleteDC(pd.hDC); hr = GlobalFree(pd.hDevMode); hr = GlobalFree(pd.hDevNames); return 0; } 実行 [display] nHorzRes=[1920] nVertRes=[1200] nPhysicalWidth=[0] nPhysicalHeight=[0] nPhysicalOffsetX=[0] nPhysicalOffsetY=[0] nLogPixelsX=[96] nLogPixelsY=[96] dWidth=[50.8000 cm] dHeight=[31.7500 cm] [default printer] nHorzRes=[6826] nVertRes=[4800] nPhysicalWidth=[7015] nPhysicalHeight=[4960] nPhysicalOffsetX=[70] nPhysicalOffsetY=[80] nLogPixelsX=[600] nLogPixelsY=[600] dWidth=[29.6968 cm] dHeight=[20.9973 cm]
https://w.atwiki.jp/sampleisbest/pages/98.html
開発環境 Microsoft Visual C++ 2010 Express (SP1) 実行環境 Microsoft Windows XP Home Edition (SP3) プロジェクトの種類 Win32 コンソール アプリケーション プロジェクト名 odbctest アプリケーションの種類 コンソール アプリケーション 追加のオプション 空のプロジェクト 文字セット Unicode sellike.c #include Windows.h #include sqlext.h #include locale.h // LC_TYPE #include stdio.h // EOF #include tchar.h #define DRIVER _T("Microsoft Access Driver (*.mdb)") #define DATABASE _T("C \\projects\\vc++\\odbctest\\odbctest.mdb") //============================================================================== int main() { SQLHENV henv;// 環境ハンドル SQLHDBC hdbc;// 接続ハンドル SQLHSTMT hstmt;// 命令ハンドル SQLRETURN rc;// retcode SQLSMALLINT col; SQLSMALLINT c; SQLLEN len; _TCHAR stmttext[256];// 命令文 _TCHAR buf[76+1]; int i; // ロケールを既定値に設定 _tsetlocale(LC_CTYPE, _T("")); // 環境ハンドルの確保 rc = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, henv); rc = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3, 0); // データベースへの接続 rc = SQLAllocHandle(SQL_HANDLE_DBC, henv, hdbc); rc = SQLDriverConnect(hdbc, NULL, _T("driver={") DRIVER _T("}; dbq=") DATABASE, SQL_NTS, NULL, 0, NULL, SQL_DRIVER_NOPROMPT); if (!SQL_SUCCEEDED(rc)) { _ftprintf(stderr, _T("データベースへの接続に失敗しました\n")); return 1; } // 検索ループ while (1) { _tprintf(_T("町域名の一部(Ctrl-Zで終了) ")); i = _tscanf_s(_T("%76s"), buf, _countof(buf)); if (i == EOF) break; _stprintf_s(stmttext, _countof(stmttext), _T("select * from 郵便番号データ where 町域名 like %%%s%% "), buf); rc = SQLAllocHandle(SQL_HANDLE_STMT, hdbc, hstmt); rc = SQLExecDirect(hstmt, stmttext, SQL_NTS); if (SQL_SUCCEEDED(rc)) { rc = SQLNumResultCols(hstmt, col); for (i = 0; ; i++) { rc = SQLFetch(hstmt); if (rc == SQL_NO_DATA) break; if (rc == SQL_ERROR) break; for (c = 1; c = col; c++) { SQLGetData(hstmt, c, SQL_C_TCHAR, buf, _countof(buf), len); if (len == SQL_NULL_DATA) buf[0] = _T( \0 ); _tprintf(_T("%s%c"), buf, (c == col) ? _T( \n ) _T( , )); } } _tprintf(_T("該当 %d件\n"), i); } else { _tprintf(_T("検索に失敗しました\n")); _tprintf(_T("[%s]\n"), stmttext); } SQLFreeHandle(SQL_HANDLE_STMT, hstmt); } // 終了処理 SQLDisconnect(hdbc); SQLFreeHandle(SQL_HANDLE_DBC, hdbc); SQLFreeHandle(SQL_HANDLE_ENV, henv); return 0; } 出力 町域名の一部(Ctrl-Zで終了) 清原 09201,32132,3213231,トチギケン,ウツノミヤシ,キヨハラコウギョウダンチ,栃木県,宇都宮市,清原工業団地,0, 0,0,0,0,0 09201,32132,3213223,トチギケン,ウツノミヤシ,キヨハラダイ,栃木県,宇都宮市,清原台,0,0,1,0,0,0 該当 2件 町域名の一部(Ctrl-Zで終了) 東京 該当 0件 町域名の一部(Ctrl-Zで終了) ^Z
https://w.atwiki.jp/sampleisbest/pages/101.html
開発環境 Microsoft Visual C++ 2010 Express (SP1) 実行環境 Microsoft Windows XP Home Edition (SP3) プロジェクトの種類 空の CLR プロジェクト プロジェクト名 clrhello clrhello.cpp using namespace System; using namespace System Reflection; int main() { Console WriteLine(L"hello, world"); String^ s = Assembly GetExecutingAssembly()- ImageRuntimeVersion; Console WriteLine(L"アセンブリ作成CLRバージョン {0}", s); Console ReadLine(); return 0; } 出力 hello, world アセンブリ作成CLRバージョン v4.0.30319
https://w.atwiki.jp/sampleisbest/pages/580.html
JavaScript版 http //www.maroon.dti.ne.jp/lance/js/trial/sg_seena2.html CMTファイル 起動方法 mon *L *G8100 メモリマップ $8100 機械語コード $8400 2x101 壁index $8500 25x101 壁データ $9000 80x200 デモデータ dataequ$9000 wallequ$8400 ;-------+-------+-------+-------+-------+ org$8100 startproc localL1,L2 callinit L1 ldhl, data L2 ld(pos), hl calldraw ldhl, (pos) ldde, 80 addhl, de lda, $ff cp(hl) jpnz, L2 jpL1 endp ;-------+-------+-------+-------+-------+ initproc localL1 localparam ; ファンクションキー表示スイッチ lda, $00 ld($ea60), a ; WIDTHの設定 ldhl, param call$0843 ; カーソル off call$0bd2 ldhl, $f300+81 ldde, 120 ldb, 25 L1 ld(hl), $80 addhl, de djnzL1 ret paramdb 80,25 , 0 endp ;-------+-------+-------+-------+-------+ drawproc localL1,L2 localvram ldhl, $f300 ld(vram), hl ldhl, (pos) ldb, 80 L1 pushbc pushhl lda, (hl); h = data[x] adda, a ldl, a ldh, 0 ldde, wall addhl, de; hl = wall + 2 * h lde, (hl); de 壁 inchl ldd, (hl) ldhl, (vram) ldbc, 120 rept 24 lda, (de) ld(hl), a incde addhl, bc endm lda, (de) ld(hl), a ldhl, vram; vram++ inc(hl) pophl; x++ incl popbc djnzL1 ret vramds2 endp ;-------+-------+-------+-------+-------+ posds2
https://w.atwiki.jp/sampleisbest/pages/626.html
開発環境 QuickC JavaScriptプロトタイプ https //jsfiddle.net/gm1zvoer/ sint.c #include conio.h #include dos.h #include math.h #define PI 3.141592653589793 #define BASE 0x100 #define CYCLE 256 #define FOV 40 typedef unsigned char BYTE; typedef unsigned short WORD; typedef signed short SWORD; typedef signed long SDWORD; typedef struct { SWORD x; SWORD y; } vec2; typedef struct { BYTE d; } CAR; // 関数プロトタイプ宣言 void setup(); void draw(); void pset(BYTE x, BYTE y); void flip(); void cls(); SWORD mul(SWORD x, SWORD y); // 外部変数 WORD page = 0; SWORD sint[CYCLE]; CAR car = { 0 }; int main() { setup(); while (! kbhit()) { draw(); car.d++; } page = 0; flip(); return 0; } void setup() { union REGS inregs, outregs; float x; int i; inregs.h.ah = 0x0a;// テキスト画面モードの設定 inregs.h.al = 0x04;// 簡易グラフ int86(0x18, inregs, outregs); inregs.h.ah = 0x16;// テキストVRAMのクリア inregs.h.dh = 0x91;// アトリビュートデータ inregs.h.dl = 0x00;// ANK文字コード int86(0x18, inregs, outregs); for (i = 0; i CYCLE; i++) { x = sin(2 * PI * i / CYCLE); sint[i] = (SWORD)(x * BASE + .5); } } void draw() { BYTE t, px, py; SWORD s, c, x; vec2 rd; int i; t = car.d; s = sint[t]; t += (CYCLE/4); c = sint[t]; cls(); x = -BASE; for (i = 0; i FOV; i++) { rd.x = mul(c, x) + s; rd.y = c - mul(s, x); px = (BYTE)(80 + rd.x * 30 / BASE); py = (BYTE)(50 - rd.y * 30 / BASE); pset(px, py); x += (2 * BASE / FOV); } flip(); page ^= 0x1000; } void pset(BYTE x, BYTE y) { BYTE xh, xl, yh, yl; char far* lp; if (x = 160 || y = 100) return; xh = x 0xfe; xl = (x 0x01) 2; yh = y / 4; yl = y - yh * 4; lp = (char far*)(0xa0000000 + page + yh * 160 + xh); *lp |= 1 (xl + yl); } void flip() { union REGS inregs, outregs; inregs.h.ah = 0x0e;// テキスト画面表示領域設定 inregs.x.dx = page;// T-VRAMの表示する領域の先頭アドレス int86(0x18, inregs, outregs); } void cls() { _asm { pushdi pushes movax, 0a000h moves, ax movax, 0000h movdi, page movcx, 2000 cld rep stosw popes popdi } } SWORD mul(SWORD x, SWORD y) { return (SWORD)((SDWORD)x * (SDWORD)y / BASE); } mk.bat qcl /c sint.c link sint;